home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Libraries / GUSI 1.4.1 / GUSI / SafeDel < prev    next >
Encoding:
Text File  |  1993-11-13  |  674 b   |  31 lines  |  [TEXT/????]
  1. # Delete all filename matches without generating errors
  2. # patterns must, of course, be quoted
  3. # $Id: SafeDel,v 1.3 1993/11/13 18:01:19 neeri Exp neeri $
  4. # $Author: neeri $
  5. # $Date: 1993/11/13 18:01:19 $
  6. # $Log: SafeDel,v $
  7. # Revision 1.3  1993/11/13  18:01:19  neeri
  8. # >>
  9. #
  10. # Revision 1.2  1993/11/13  17:57:57  neeri
  11. # >> nothing compares 2 you
  12. #
  13. #
  14.  
  15. # A frivolous change
  16.  
  17. Set OldEcho {Echo}
  18. Set Echo 0
  19.  
  20. Echo Set Exit 0> "{TempFolder}"ToDelete
  21. Loop
  22.     Break If `Evaluate {#} == "0"`
  23.     Echo Delete -y ∂'"{1}"∂''>Dev:Null≥Dev:Null' >>"{TempFolder}"ToDelete 
  24.     Shift
  25. End
  26. Echo Exit 0 >>"{TempFolder}"ToDelete
  27.  
  28. Set Echo {OldEcho}
  29. "{TempFolder}"ToDelete
  30. Delete "{TempFolder}"ToDelete
  31.